<% if sConditions = " where 1=1 " then sConditions = " where IsActive = false " End If OrderBy = " Order By Email " query = "Select * from IMailingList" & sConditions & OrderBy set rsEmails = CreateObject("ADODB.RecordSet") rsEmails.CursorType = 3 set rsEmails.ActiveConnection = DBConn rsEmails.Source = query rsEmails.Open ''set rsEmails = DBConn.execute(query) If Not rsEmails.EOF Then rsEmails.PageSize = 4 rsEmails.AbsolutePage = CurrentPage response.write rsEmails.recordcount & " Total records found " End If Do until rsEmails.AbsolutePage <> CurrentPage or rsEmails.EOF %> <% rsEmails.MoveNext Loop %>

	<% If CurrentPage <> 1 Then %> <% End If %>	<% If CurrentPage <> int(Request.Form("PageCount")) Then %> <% End If %>
Date	Email Name	Email Address	Html	Filter Status
<%=rsEmails("JoiningDate")%>	<%=rsEmails("FirstName") & " " & rsEmails("LastName")%>	<%=rsEmails("Email")%>	<%=rsEmails("HTMLEmail")%>	<% If rsEmails("IsActive") = false Then %> &category=<%=request("category")%>" class="Hyperlink1" onclick="return confirm('This will permanently delete <%=rsEmails("Email")%> from the email list.');">[Delete] &category=<%=request("category")%>" class="Hyperlink1"> [Activate] <% Else %> &category=<%=request("category")%>" class="Hyperlink1">[Deactivate] <% End If %>